home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Family Forum 257
/
SOMC Family Forum 257 - Disc 2.iso
/
AOLINSTA.LLE
/
Web Browser v1.1.rsrc
/
TEXT_256_Portrait PS.txt
< prev
next >
Wrap
Text File
|
1996-04-12
|
555b
|
12 lines
%!-Adobe-1.0
%%Title: portrait.ps
%%Creator: Amanda Walker <amanda@intercon.com>
%%CreationDate: 5 April 1990
/s 256 string def 72 720 moveto /Courier findfont 9 scalefont setfont
/spacewidth ( ) stringwidth pop def{ currentfile s readline { gsave
{ ( ) search exch show not { exit } if
pop currentpoint exch 72 sub spacewidth div .49 add cvi
8 add dup 8 mod sub spacewidth mul 72 add exch moveto } loop
grestore 0 -10 rmoveto currentpoint exch pop 60 lt { showpage 72 720 moveto } if
} { currentpoint exch pop 720 lt { showpage } if exit } ifelse } loop